Filename	(eval 3)[/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/Fatal.pm:1102]
Statements	Executed 8 statements in 588µs
Eval Invoked At	/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/Fatal.pm line 1102
Sibling evals	1, 2

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	20µs	63µs	Hailo::::BEGIN@6Hailo::BEGIN@6
1	1	1	12µs	40µs	Hailo::::BEGIN@86Hailo::BEGIN@86
1	1	1	12µs	38µs	Hailo::::BEGIN@46Hailo::BEGIN@46
0	0	0	0s	0s	Hailo::::__ANON__[:127]Hailo::__ANON__[:127]

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1	1	1µs			package Hailo; require Carp;
2					sub (*;$@) {
3					local($", $!) = (', ', 0); # TODO - Why do we do this?
4					if (@_ == 1) {
5
6	2	152µs	2	105µs	# spent 63µs (20+42) within Hailo::BEGIN@6 which was called: # once (20µs+42µs) by Fatal::_make_fatal at line 6 no warnings qw(unopened uninitialized numeric); # spent 63µs making 1 call to Hailo::BEGIN@6 # spent 42µs making 1 call to warnings::unimport
7
8					if (wantarray) {
9					my @results = CORE::open($_[0]);
10					my $retval = \@results;
11					my $context = "list";
12
13
14					# An empty list, or a single undef is failure
15					if (! @results or (@results == 1 and ! defined $results[0])) {
16
17					die autodie->throw(
18					function => q{CORE::open}, args => [ $_[0] ],
19					pragma => q{autodie}, errno => $!,
20					context => $context, return => $retval,
21					eval_error => $@
22					)
23					;
24					}
25
26					return @results;
27					}
28
29					my $retval = CORE::open($_[0]);
30					my $context = "scalar";
31
32
33
34					die autodie->throw(
35					function => q{CORE::open}, args => [ $_[0] ],
36					pragma => q{autodie}, errno => $!,
37					context => $context, return => $retval,
38					eval_error => $@
39					)
40					if not defined $retval;
41
42					return $retval;
43
44					} elsif (@_ == 2) {
45
46	2	198µs	2	65µs	# spent 38µs (12+26) within Hailo::BEGIN@46 which was called: # once (12µs+26µs) by Fatal::_make_fatal at line 46 no warnings qw(unopened uninitialized numeric); # spent 38µs making 1 call to Hailo::BEGIN@46 # spent 26µs making 1 call to warnings::unimport
47
48					if (wantarray) {
49					my @results = CORE::open($_[0], $_[1]);
50					my $retval = \@results;
51					my $context = "list";
52
53
54					# An empty list, or a single undef is failure
55					if (! @results or (@results == 1 and ! defined $results[0])) {
56
57					die autodie->throw(
58					function => q{CORE::open}, args => [ $_[0], $_[1] ],
59					pragma => q{autodie}, errno => $!,
60					context => $context, return => $retval,
61					eval_error => $@
62					)
63					;
64					}
65
66					return @results;
67					}
68
69					my $retval = CORE::open($_[0], $_[1]);
70					my $context = "scalar";
71
72
73
74					die autodie->throw(
75					function => q{CORE::open}, args => [ $_[0], $_[1] ],
76					pragma => q{autodie}, errno => $!,
77					context => $context, return => $retval,
78					eval_error => $@
79					)
80					if not defined $retval;
81
82					return $retval;
83
84					} elsif (@_ >= 3) {
85
86	2	227µs	2	67µs	# spent 40µs (12+27) within Hailo::BEGIN@86 which was called: # once (12µs+27µs) by Fatal::_make_fatal at line 86 no warnings qw(unopened uninitialized numeric); # spent 40µs making 1 call to Hailo::BEGIN@86 # spent 27µs making 1 call to warnings::unimport
87
88					if (wantarray) {
89					my @results = CORE::open($_[0], $_[1], @_[2..$#_]);
90					my $retval = \@results;
91					my $context = "list";
92
93
94					# An empty list, or a single undef is failure
95					if (! @results or (@results == 1 and ! defined $results[0])) {
96
97					die autodie->throw(
98					function => q{CORE::open}, args => [ $_[0], $_[1], @_[2..$#_] ],
99					pragma => q{autodie}, errno => $!,
100					context => $context, return => $retval,
101					eval_error => $@
102					)
103					;
104					}
105
106					return @results;
107					}
108
109					my $retval = CORE::open($_[0], $_[1], @_[2..$#_]);
110					my $context = "scalar";
111
112
113
114					die autodie->throw(
115					function => q{CORE::open}, args => [ $_[0], $_[1], @_[2..$#_] ],
116					pragma => q{autodie}, errno => $!,
117					context => $context, return => $retval,
118					eval_error => $@
119					)
120					if not defined $retval;
121
122					return $retval;
123
124
125					}
126					die "Internal error: open(@_): Do not expect to get ", scalar(@_), " arguments";
127					}
128
129	1	10µs			;